home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / maxime.dxr / 00007.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  925 b   |  39 lines
  1. on enterFrame
  2.   if the puppet of sprite 2 = 0 then
  3.     puppetSprite(2, 1)
  4.     puppetSprite(3, 1)
  5.     puppetSprite(4, 1)
  6.     set the locH of sprite 2 to -135
  7.     set the locV of sprite 2 to 66
  8.     set the visible of sprite 2 to 1
  9.   end if
  10. end
  11.  
  12. on exitFrame
  13.   global Aframe
  14.   set the locH of sprite 2 to the locH of sprite 2 + 15
  15.   if the locH of sprite 2 >= 640 then
  16.     set the locH of sprite 2 to -135
  17.   end if
  18.   if rollOver(5) then
  19.     set Aframe to the frame
  20.     puppetSprite(2, 0)
  21.     go("naveg")
  22.   end if
  23.   go(the frame)
  24. end
  25.  
  26. on mouseUp
  27.   global sprpos
  28.   if rollOver(2) = 1 then
  29.     set sprpos to 1
  30.     set the locH of sprite 3 to the locH of sprite 2
  31.     set the locV of sprite 3 to the locV of sprite 2
  32.     set the locH of sprite 4 to the locH of sprite 2
  33.     set the locV of sprite 4 to the locV of sprite 2
  34.     set the visible of sprite 2 to 0
  35.     set the visible of sprite 3 to 1
  36.     go(the frame + 1)
  37.   end if
  38. end
  39.